inherited dtmcw_PayMaster: Tdtmcw_PayMaster
  OldCreateOrder = True
  Left = 405
  Top = 332
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_PayMaster where 0=0'
    object adsMasterBillID: TStringField
      DisplayLabel = #20184#27454#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterBillNo: TStringField
      DisplayLabel = #20184#27454#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterBillDate: TDateTimeField
      DisplayLabel = #20184#27454#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterBillType: TWordField
      DisplayLabel = #20184#27454#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterSupplyCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'SupplyCode'
    end
    object adsMasterSupplyShortName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'SupplyShortName'
    end
    object adsMasterTransactor: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'Transactor'
    end
    object adsMasterSummary: TStringField
      DisplayLabel = #25688#35201
      FieldName = 'Summary'
      Size = 50
    end
    object adsMasterAccountID: TStringField
      DisplayLabel = #20184#27454#36134#25143'ID'
      FieldName = 'AccountID'
    end
    object adsMasterAccountCode: TStringField
      DisplayLabel = #20184#27454#36134#25143#32534#30721
      FieldName = 'AccountCode'
    end
    object adsMasterAccountShortName: TStringField
      DisplayLabel = #20184#27454#36134#25143#21517#31216
      FieldName = 'AccountShortName'
    end
    object adsMasterSumMoney: TFloatField
      DisplayLabel = #20184#27454#37329#39069
      FieldName = 'SumMoney'
    end
    object adsMasterSubMoney: TFloatField
      DisplayLabel = #39044#20184#25269#25187
      FieldName = 'SubMoney'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from cw_PayMaster'
    object adsMasterEditBillID: TStringField
      DisplayLabel = #20184#27454#21333'ID'
      FieldName = 'BillID'
    end
    object adsMasterEditBillNo: TStringField
      DisplayLabel = #20184#27454#21333#21495
      FieldName = 'BillNo'
    end
    object adsMasterEditBillDate: TDateTimeField
      DisplayLabel = #20184#27454#26085#26399
      FieldName = 'BillDate'
    end
    object adsMasterEditBillType: TWordField
      DisplayLabel = #20184#27454#31867#22411
      FieldName = 'BillType'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterEditTransactor: TStringField
      DisplayLabel = #32463#21150#20154
      FieldName = 'Transactor'
    end
    object adsMasterEditSummary: TStringField
      DisplayLabel = #25688#35201
      FieldName = 'Summary'
      Size = 50
    end
    object adsMasterEditAccountID: TStringField
      DisplayLabel = #20184#27454#36134#25143'ID'
      FieldName = 'AccountID'
    end
    object adsMasterEditSumMoney: TFloatField
      DisplayLabel = #20184#27454#37329#39069
      FieldName = 'SumMoney'
      OnChange = adsMasterEditSumMoneyChange
    end
    object adsMasterEditSubMoney: TFloatField
      DisplayLabel = #39044#20184#25269#25187
      FieldName = 'SubMoney'
      OnChange = adsMasterEditSubMoneyChange
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
    object adsMasterEditres_AccountName: TStringField
      DisplayLabel = #20184#27454#36134#25143
      FieldKind = fkLookup
      FieldName = 'res_AccountName'
      LookupDataSet = res_Account
      LookupKeyFields = 'AccountID'
      LookupResultField = 'AccountShortName'
      KeyFields = 'AccountID'
      Lookup = True
    end
    object adsMasterEditres_TransactorName: TStringField
      DisplayLabel = #32463#21150#20154#21592
      FieldKind = fkLookup
      FieldName = 'res_TransactorName'
      LookupDataSet = res_Employee
      LookupKeyFields = 'EmpID'
      LookupResultField = 'EmpName'
      KeyFields = 'Transactor'
      Lookup = True
    end
    object adsMasterEditres_SupplyName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldKind = fkLookup
      FieldName = 'res_SupplyName'
      LookupDataSet = res_Supply
      LookupKeyFields = 'SupplyID'
      LookupResultField = 'SupplyShortName'
      KeyFields = 'SupplyID'
      Lookup = True
    end
  end
  object adsDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from cw_PayDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 40
    object adsDetailID: TStringField
      FieldName = 'ID'
    end
    object adsDetailBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsDetailType: TWordField
      DisplayLabel = #31867#22411
      FieldName = 'Type'
    end
    object adsDetailYFPayBillNo: TStringField
      DisplayLabel = #24212#20184#21333#21495
      FieldName = 'YFPayBillNo'
    end
    object adsDetailRevBillNo: TStringField
      DisplayLabel = #25910#36135#21333#21495
      FieldName = 'RevBillNo'
    end
    object adsDetailRevDate: TDateTimeField
      DisplayLabel = #25910#36135#26085#26399
      FieldName = 'RevDate'
    end
    object adsDetailSumMoney: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      FieldName = 'SumMoney'
    end
    object adsDetailRebateMoney: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'RebateMoney'
      OnChange = adsDetailRebateMoneyChange
    end
    object adsDetailPayMoney: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      FieldName = 'PayMoney'
    end
    object adsDetailUnMoney: TFloatField
      DisplayLabel = #26410#20184#37329#39069
      FieldName = 'UnMoney'
      OnChange = adsDetailUnMoneyChange
    end
    object adsDetailCurrMoney: TFloatField
      DisplayLabel = #26412#27425#20184#27454
      FieldName = 'CurrMoney'
      OnChange = adsDetailCurrMoneyChange
    end
    object adsDetailWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsDetailWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsDetailModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsDetailModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsDetailRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object adsPayType: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 'Select * from V_cw_PayType'
    Parameters = <>
    Left = 192
    Top = 176
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 464
    Top = 40
  end
  object res_Employee: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'Select EmpID, EmpName from V_da_Employee'
    Parameters = <>
    Left = 320
    Top = 104
  end
  object res_Account: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select AccountID, AccountCode, AccountShortName, AccountFullName' +
      ' from V_cw_Account'
    Parameters = <>
    Left = 320
    Top = 176
  end
  object res_Supply: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'Select SupplyID, SupplyCode, SupplyShortName, SupplyFullName fro' +
      'm V_da_Supply'
    Parameters = <>
    Left = 320
    Top = 40
  end
  object adsBrowseDetail: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsDetailBeforePost
    OnNewRecord = adsDetailNewRecord
    CommandText = 'Select * from cw_PayDetail where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 104
    object StringField1: TStringField
      FieldName = 'ID'
    end
    object StringField2: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object adsBrowseDetailYFPayBillNo: TStringField
      DisplayLabel = #24212#20184#21333#21495
      FieldName = 'YFPayBillNo'
    end
    object StringField3: TStringField
      DisplayLabel = #25910#36135#21333#21495
      FieldName = 'RevBillNo'
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #25910#36135#26085#26399
      FieldName = 'RevDate'
    end
    object FloatField1: TFloatField
      DisplayLabel = #24212#20184#37329#39069
      FieldName = 'SumMoney'
    end
    object FloatField2: TFloatField
      DisplayLabel = #25240#25187#37329#39069
      FieldName = 'RebateMoney'
      OnChange = adsDetailRebateMoneyChange
    end
    object FloatField3: TFloatField
      DisplayLabel = #24050#20184#37329#39069
      FieldName = 'PayMoney'
    end
    object FloatField4: TFloatField
      DisplayLabel = #26410#20184#37329#39069
      FieldName = 'UnMoney'
      OnChange = adsDetailUnMoneyChange
    end
    object FloatField5: TFloatField
      DisplayLabel = #26412#27425#20184#27454
      FieldName = 'CurrMoney'
      OnChange = adsDetailCurrMoneyChange
    end
    object StringField4: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField2: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField5: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField3: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField6: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  object frdsDetail: TfrDBDataSet
    DataSet = adsDetail
    Left = 56
    Top = 160
  end
end
